﻿Imports System.ComponentModel
Imports System.ComponentModel.Design
Imports System.Windows.Forms.Design

<Designer(GetType(DialogBaseDesigner))> _
Public Class Dialog_Base
#Region "Hiding"

    <Browsable(False)> _
Public Overrides Property BackColor() As System.Drawing.Color
        Get
            Return MyBase.BackColor
        End Get
        Set(ByVal value As System.Drawing.Color)
            MyBase.BackColor = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Advanced)> _
    Public Shadows Property Size() As Size
        Get
            Return MyBase.Size
        End Get
        Set(ByVal value As Size)
            MyBase.Size = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Shadows ReadOnly Property MaximumSize() As Size
        Get
            Return MyBase.MaximumSize
        End Get
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Shadows ReadOnly Property MinimumSize() As Size
        Get
            Return MyBase.MinimumSize
        End Get
    End Property

    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Shadows ReadOnly Property Controls() As ControlCollection
        Get
            Return MyBase.Controls
        End Get
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub AdjustFormScrollbars(ByVal displayScrollbars As Boolean)
        MyBase.AdjustFormScrollbars(displayScrollbars)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property AllowDrop() As Boolean
        Get
            Return MyBase.AllowDrop
        End Get
        Set(ByVal value As Boolean)
            MyBase.AllowDrop = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property Anchor() As System.Windows.Forms.AnchorStyles
        Get
            Return MyBase.Anchor
        End Get
        Set(ByVal value As System.Windows.Forms.AnchorStyles)
            MyBase.Anchor = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property AutoScroll() As Boolean
        Get
            Return MyBase.AutoScroll
        End Get
        Set(ByVal value As Boolean)
            MyBase.AutoScroll = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property AutoScrollOffset() As System.Drawing.Point
        Get
            Return MyBase.AutoScrollOffset
        End Get
        Set(ByVal value As System.Drawing.Point)
            MyBase.AutoScrollOffset = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property AutoSize() As Boolean
        Get
            Return MyBase.AutoSize
        End Get
        Set(ByVal value As Boolean)
            MyBase.AutoSize = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property AutoValidate() As System.Windows.Forms.AutoValidate
        Get
            Return MyBase.AutoValidate
        End Get
        Set(ByVal value As System.Windows.Forms.AutoValidate)
            MyBase.AutoValidate = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property BackgroundImage() As System.Drawing.Image
        Get
            Return MyBase.BackgroundImage
        End Get
        Set(ByVal value As System.Drawing.Image)
            MyBase.BackgroundImage = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property BackgroundImageLayout() As System.Windows.Forms.ImageLayout
        Get
            Return MyBase.BackgroundImageLayout
        End Get
        Set(ByVal value As System.Windows.Forms.ImageLayout)
            MyBase.BackgroundImageLayout = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property BindingContext() As System.Windows.Forms.BindingContext
        Get
            Return MyBase.BindingContext
        End Get
        Set(ByVal value As System.Windows.Forms.BindingContext)
            MyBase.BindingContext = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides ReadOnly Property CanEnableIme() As Boolean
        Get
            Return MyBase.CanEnableIme
        End Get
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides ReadOnly Property CanRaiseEvents() As Boolean
        Get
            Return MyBase.CanRaiseEvents
        End Get
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property ContextMenu() As System.Windows.Forms.ContextMenu
        Get
            Return MyBase.ContextMenu
        End Get
        Set(ByVal value As System.Windows.Forms.ContextMenu)
            MyBase.ContextMenu = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property ContextMenuStrip() As System.Windows.Forms.ContextMenuStrip
        Get
            Return MyBase.ContextMenuStrip
        End Get
        Set(ByVal value As System.Windows.Forms.ContextMenuStrip)
            MyBase.ContextMenuStrip = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Function CreateControlsInstance() As System.Windows.Forms.Control.ControlCollection
        Return MyBase.CreateControlsInstance()
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub CreateHandle()
        MyBase.CreateHandle()
    End Sub

    <Security.Permissions.SecurityPermission(Security.Permissions.SecurityAction.LinkDemand, flags:=Security.Permissions.SecurityPermissionFlag.Infrastructure)> _
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Function CreateObjRef(ByVal requestedType As System.Type) As System.Runtime.Remoting.ObjRef
        Return MyBase.CreateObjRef(requestedType)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
        Get
            Return MyBase.CreateParams
        End Get
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property Cursor() As System.Windows.Forms.Cursor
        Get
            Return MyBase.Cursor
        End Get
        Set(ByVal value As System.Windows.Forms.Cursor)
            MyBase.Cursor = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides ReadOnly Property DefaultCursor() As System.Windows.Forms.Cursor
        Get
            Return MyBase.DefaultCursor
        End Get
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides ReadOnly Property DefaultImeMode() As System.Windows.Forms.ImeMode
        Get
            Return MyBase.DefaultImeMode
        End Get
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides ReadOnly Property DefaultMargin() As System.Windows.Forms.Padding
        Get
            Return MyBase.DefaultMargin
        End Get
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides ReadOnly Property DefaultMaximumSize() As System.Drawing.Size
        Get
            Return MyBase.DefaultMaximumSize
        End Get
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides ReadOnly Property DefaultMinimumSize() As System.Drawing.Size
        Get
            Return MyBase.DefaultMinimumSize
        End Get
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides ReadOnly Property DefaultPadding() As System.Windows.Forms.Padding
        Get
            Return MyBase.DefaultPadding
        End Get
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides ReadOnly Property DefaultSize() As System.Drawing.Size
        Get
            Return MyBase.DefaultSize
        End Get
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message)
        MyBase.DefWndProc(m)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub DestroyHandle()
        MyBase.DestroyHandle()
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides ReadOnly Property DisplayRectangle() As System.Drawing.Rectangle
        Get
            Return MyBase.DisplayRectangle
        End Get
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Always)> _
    Public Overrides Property Dock() As System.Windows.Forms.DockStyle
        Get
            Return MyBase.Dock
        End Get
        Set(ByVal value As System.Windows.Forms.DockStyle)
            MyBase.Dock = DockStyle.Fill
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Property DoubleBuffered() As Boolean
        Get
            Return MyBase.DoubleBuffered
        End Get
        Set(ByVal value As Boolean)
            MyBase.DoubleBuffered = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Function Equals(ByVal obj As Object) As Boolean
        Return MyBase.Equals(obj)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides ReadOnly Property Focused() As Boolean
        Get
            Return MyBase.Focused
        End Get
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property Font() As System.Drawing.Font
        Get
            Return MyBase.Font
        End Get
        Set(ByVal value As System.Drawing.Font)
            MyBase.Font = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property ForeColor() As System.Drawing.Color
        Get
            Return MyBase.ForeColor
        End Get
        Set(ByVal value As System.Drawing.Color)
            MyBase.ForeColor = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Function GetHashCode() As Integer
        Return MyBase.GetHashCode()
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Function GetPreferredSize(ByVal proposedSize As System.Drawing.Size) As System.Drawing.Size
        Return MyBase.GetPreferredSize(proposedSize)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Function GetScaledBounds(ByVal bounds As System.Drawing.Rectangle, ByVal factor As System.Drawing.SizeF, ByVal specified As System.Windows.Forms.BoundsSpecified) As System.Drawing.Rectangle
        Return MyBase.GetScaledBounds(bounds, factor, specified)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Function GetService(ByVal service As System.Type) As Object
        Return MyBase.GetService(service)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Property ImeModeBase() As System.Windows.Forms.ImeMode
        Get
            Return MyBase.ImeModeBase
        End Get
        Set(ByVal value As System.Windows.Forms.ImeMode)
            MyBase.ImeModeBase = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Function InitializeLifetimeService() As Object
        Return MyBase.InitializeLifetimeService()
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub InitLayout()
        MyBase.InitLayout()
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Function IsInputChar(ByVal charCode As Char) As Boolean
        Return MyBase.IsInputChar(charCode)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Function IsInputKey(ByVal keyData As System.Windows.Forms.Keys) As Boolean
        Return MyBase.IsInputKey(keyData)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides ReadOnly Property LayoutEngine() As System.Windows.Forms.Layout.LayoutEngine
        Get
            Return MyBase.LayoutEngine
        End Get
    End Property
    '<Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    'Public Overrides Property MaximumSize() As System.Drawing.Size
    '    Get
    '        Return New Size(Integer.MaxValue, 21)
    '    End Get
    '    Set(ByVal value As System.Drawing.Size)
    '        MyBase.MaximumSize = value
    '    End Set
    'End Property
    '<Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    'Public Overrides Property MinimumSize() As System.Drawing.Size
    '    Get
    '        Return MyBase.MinimumSize
    '    End Get
    '    Set(ByVal value As System.Drawing.Size)
    '        MyBase.MinimumSize = value
    '    End Set
    'End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub NotifyInvalidate(ByVal invalidatedArea As System.Drawing.Rectangle)
        MyBase.NotifyInvalidate(invalidatedArea)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnAutoSizeChanged(ByVal e As System.EventArgs)
        MyBase.OnAutoSizeChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnAutoValidateChanged(ByVal e As System.EventArgs)
        MyBase.OnAutoValidateChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnBackColorChanged(ByVal e As System.EventArgs)
        MyBase.OnBackColorChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnBackgroundImageChanged(ByVal e As System.EventArgs)
        MyBase.OnBackgroundImageChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnBackgroundImageLayoutChanged(ByVal e As System.EventArgs)
        MyBase.OnBackgroundImageLayoutChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnBindingContextChanged(ByVal e As System.EventArgs)
        MyBase.OnBindingContextChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnCausesValidationChanged(ByVal e As System.EventArgs)
        MyBase.OnCausesValidationChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnChangeUICues(ByVal e As System.Windows.Forms.UICuesEventArgs)
        MyBase.OnChangeUICues(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
        MyBase.OnClick(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnClientSizeChanged(ByVal e As System.EventArgs)
        MyBase.OnClientSizeChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnContextMenuChanged(ByVal e As System.EventArgs)
        MyBase.OnContextMenuChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnContextMenuStripChanged(ByVal e As System.EventArgs)
        MyBase.OnContextMenuStripChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnControlAdded(ByVal e As System.Windows.Forms.ControlEventArgs)
        MyBase.OnControlAdded(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnControlRemoved(ByVal e As System.Windows.Forms.ControlEventArgs)
        MyBase.OnControlRemoved(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnCreateControl()
        MyBase.OnCreateControl()
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnCursorChanged(ByVal e As System.EventArgs)
        MyBase.OnCursorChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnDockChanged(ByVal e As System.EventArgs)
        MyBase.OnDockChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnDoubleClick(ByVal e As System.EventArgs)
        MyBase.OnDoubleClick(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnDragDrop(ByVal drgevent As System.Windows.Forms.DragEventArgs)
        MyBase.OnDragDrop(drgevent)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnDragEnter(ByVal drgevent As System.Windows.Forms.DragEventArgs)
        MyBase.OnDragEnter(drgevent)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnDragLeave(ByVal e As System.EventArgs)
        MyBase.OnDragLeave(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnDragOver(ByVal drgevent As System.Windows.Forms.DragEventArgs)
        MyBase.OnDragOver(drgevent)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnEnabledChanged(ByVal e As System.EventArgs)
        MyBase.OnEnabledChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnEnter(ByVal e As System.EventArgs)
        MyBase.OnEnter(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnFontChanged(ByVal e As System.EventArgs)
        MyBase.OnFontChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnForeColorChanged(ByVal e As System.EventArgs)
        MyBase.OnForeColorChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnGiveFeedback(ByVal gfbevent As System.Windows.Forms.GiveFeedbackEventArgs)
        MyBase.OnGiveFeedback(gfbevent)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnGotFocus(ByVal e As System.EventArgs)
        MyBase.OnGotFocus(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnHandleCreated(ByVal e As System.EventArgs)
        MyBase.OnHandleCreated(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnHandleDestroyed(ByVal e As System.EventArgs)
        MyBase.OnHandleDestroyed(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnHelpRequested(ByVal hevent As System.Windows.Forms.HelpEventArgs)
        MyBase.OnHelpRequested(hevent)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnImeModeChanged(ByVal e As System.EventArgs)
        MyBase.OnImeModeChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnInvalidated(ByVal e As System.Windows.Forms.InvalidateEventArgs)
        MyBase.OnInvalidated(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs)
        MyBase.OnKeyDown(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
        MyBase.OnKeyPress(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnKeyUp(ByVal e As System.Windows.Forms.KeyEventArgs)
        MyBase.OnKeyUp(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnLayout(ByVal e As System.Windows.Forms.LayoutEventArgs)
        MyBase.OnLayout(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnLeave(ByVal e As System.EventArgs)
        MyBase.OnLeave(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        MyBase.OnLoad(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnLocationChanged(ByVal e As System.EventArgs)
        MyBase.OnLocationChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnLostFocus(ByVal e As System.EventArgs)
        MyBase.OnLostFocus(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnMarginChanged(ByVal e As System.EventArgs)
        MyBase.OnMarginChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnMouseCaptureChanged(ByVal e As System.EventArgs)
        MyBase.OnMouseCaptureChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnMouseClick(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseClick(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnMouseDoubleClick(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseDoubleClick(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseDown(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
        MyBase.OnMouseEnter(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnMouseHover(ByVal e As System.EventArgs)
        MyBase.OnMouseHover(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
        MyBase.OnMouseLeave(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseMove(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseUp(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnMouseWheel(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseWheel(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnMove(ByVal e As System.EventArgs)
        MyBase.OnMove(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnNotifyMessage(ByVal m As System.Windows.Forms.Message)
        MyBase.OnNotifyMessage(m)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnPaddingChanged(ByVal e As System.EventArgs)
        MyBase.OnPaddingChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnPaintBackground(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaintBackground(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnParentBackColorChanged(ByVal e As System.EventArgs)
        MyBase.OnParentBackColorChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnParentBackgroundImageChanged(ByVal e As System.EventArgs)
        MyBase.OnParentBackgroundImageChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnParentBindingContextChanged(ByVal e As System.EventArgs)
        MyBase.OnParentBindingContextChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnParentChanged(ByVal e As System.EventArgs)
        MyBase.OnParentChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnParentCursorChanged(ByVal e As System.EventArgs)
        MyBase.OnParentCursorChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnParentEnabledChanged(ByVal e As System.EventArgs)
        MyBase.OnParentEnabledChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnParentFontChanged(ByVal e As System.EventArgs)
        MyBase.OnParentFontChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnParentForeColorChanged(ByVal e As System.EventArgs)
        MyBase.OnParentForeColorChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnParentRightToLeftChanged(ByVal e As System.EventArgs)
        MyBase.OnParentRightToLeftChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnParentVisibleChanged(ByVal e As System.EventArgs)
        MyBase.OnParentVisibleChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnPreviewKeyDown(ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs)
        MyBase.OnPreviewKeyDown(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnPrint(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPrint(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnQueryContinueDrag(ByVal qcdevent As System.Windows.Forms.QueryContinueDragEventArgs)
        MyBase.OnQueryContinueDrag(qcdevent)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnRegionChanged(ByVal e As System.EventArgs)
        MyBase.OnRegionChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnResize(ByVal e As System.EventArgs)
        MyBase.OnResize(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnRightToLeftChanged(ByVal e As System.EventArgs)
        MyBase.OnRightToLeftChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnScroll(ByVal se As System.Windows.Forms.ScrollEventArgs)
        MyBase.OnScroll(se)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnSizeChanged(ByVal e As System.EventArgs)
        MyBase.OnSizeChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnStyleChanged(ByVal e As System.EventArgs)
        MyBase.OnStyleChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnSystemColorsChanged(ByVal e As System.EventArgs)
        MyBase.OnSystemColorsChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnTabIndexChanged(ByVal e As System.EventArgs)
        MyBase.OnTabIndexChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnTabStopChanged(ByVal e As System.EventArgs)
        MyBase.OnTabStopChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
        MyBase.OnTextChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnValidated(ByVal e As System.EventArgs)
        MyBase.OnValidated(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnValidating(ByVal e As System.ComponentModel.CancelEventArgs)
        MyBase.OnValidating(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub OnVisibleChanged(ByVal e As System.EventArgs)
        MyBase.OnVisibleChanged(e)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Function PreProcessMessage(ByRef msg As System.Windows.Forms.Message) As Boolean
        Return MyBase.PreProcessMessage(msg)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
        Return MyBase.ProcessCmdKey(msg, keyData)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Function ProcessDialogChar(ByVal charCode As Char) As Boolean
        Return MyBase.ProcessDialogChar(charCode)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Function ProcessDialogKey(ByVal keyData As System.Windows.Forms.Keys) As Boolean
        Return MyBase.ProcessDialogKey(keyData)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Function ProcessKeyEventArgs(ByRef m As System.Windows.Forms.Message) As Boolean
        Return MyBase.ProcessKeyEventArgs(m)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Function ProcessKeyMessage(ByRef m As System.Windows.Forms.Message) As Boolean
        Return MyBase.ProcessKeyMessage(m)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Function ProcessKeyPreview(ByRef m As System.Windows.Forms.Message) As Boolean
        Return MyBase.ProcessKeyPreview(m)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Function ProcessMnemonic(ByVal charCode As Char) As Boolean
        Return MyBase.ProcessMnemonic(charCode)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Function ProcessTabKey(ByVal forward As Boolean) As Boolean
        Return MyBase.ProcessTabKey(forward)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Sub Refresh()
        MyBase.Refresh()
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Sub ResetText()
        MyBase.ResetText()
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property RightToLeft() As System.Windows.Forms.RightToLeft
        Get
            Return MyBase.RightToLeft
        End Get
        Set(ByVal value As System.Windows.Forms.RightToLeft)
            MyBase.RightToLeft = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides ReadOnly Property ScaleChildren() As Boolean
        Get
            Return MyBase.ScaleChildren
        End Get
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub ScaleControl(ByVal factor As System.Drawing.SizeF, ByVal specified As System.Windows.Forms.BoundsSpecified)
        MyBase.ScaleControl(factor, specified)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Function ScrollToControl(ByVal activeControl As System.Windows.Forms.Control) As System.Drawing.Point
        Return MyBase.ScrollToControl(activeControl)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub [Select](ByVal directed As Boolean, ByVal forward As Boolean)
        MyBase.[Select](directed, forward)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub SetBoundsCore(ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal specified As System.Windows.Forms.BoundsSpecified)
        MyBase.SetBoundsCore(x, y, width, height, specified)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub SetClientSizeCore(ByVal x As Integer, ByVal y As Integer)
        MyBase.SetClientSizeCore(x, y)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub SetVisibleCore(ByVal value As Boolean)
        MyBase.SetVisibleCore(value)
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides ReadOnly Property ShowFocusCues() As Boolean
        Get
            Return MyBase.ShowFocusCues
        End Get
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides ReadOnly Property ShowKeyboardCues() As Boolean
        Get
            Return MyBase.ShowKeyboardCues
        End Get
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property Site() As System.ComponentModel.ISite
        Get
            Return MyBase.Site
        End Get
        Set(ByVal value As System.ComponentModel.ISite)
            MyBase.Site = value
        End Set
    End Property
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Function SizeFromClientSize(ByVal clientSize As System.Drawing.Size) As System.Drawing.Size
        Return MyBase.SizeFromClientSize(clientSize)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Function ToString() As String
        Return MyBase.ToString()
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub UpdateDefaultButton()
        MyBase.UpdateDefaultButton()
    End Sub
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Function ValidateChildren() As Boolean
        Return MyBase.ValidateChildren()
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Function ValidateChildren(ByVal validationConstraints As System.Windows.Forms.ValidationConstraints) As Boolean
        Return MyBase.ValidateChildren(validationConstraints)
    End Function
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        MyBase.WndProc(m)
    End Sub
#End Region
End Class

Friend Class DialogBaseDesigner
    Inherits ControlDesigner

    Private MyControl As Dialog_Base

    Public Overrides Sub Initialize(ByVal component As System.ComponentModel.IComponent)
        MyBase.Initialize(component)

        'Record instance of control we're designing
        MyControl = DirectCast(component, Dialog_Base)

        'Hook up events
        Dim s As ISelectionService = DirectCast(GetService(GetType(ISelectionService)), ISelectionService)
        Dim c As IComponentChangeService = DirectCast(GetService(GetType(IComponentChangeService)), IComponentChangeService)
        'AddHandler s.SelectionChanged, AddressOf OnSelectionChanged
        'AddHandler c.ComponentRemoving, AddressOf OnComponentRemoving
        AddHandler c.ComponentAdding, AddressOf OnAdding
        EnableDragDrop(True)
    End Sub

    Private Sub OnAdding(ByVal sender As Object, ByVal e As System.ComponentModel.Design.ComponentEventArgs)
        'MsgBox("Added")
        'If e.Component.GetType.ToString.ToLower.Contains("colourbutton") = False Then
        '    Dim button As Windows.Forms.Button
        '    Dim h As IDesignerHost = DirectCast(GetService(GetType(IDesignerHost)), IDesignerHost)
        '    button = DirectCast(e.Component, Windows.Forms.Button)
        '    MyControl.Controls.Add(button)
        '    'MsgBox(e.Component.GetType.ToString)
        '    'Dim button As Windows.Forms.Button
        '    'Dim h As IDesignerHost = DirectCast(GetService(GetType(IDesignerHost)), IDesignerHost)
        '    'Dim dt As DesignerTransaction
        '    'Dim c As IComponentChangeService = DirectCast(GetService(GetType(IComponentChangeService)), IComponentChangeService)

        '    ''Add a new button to the collection
        '    'dt = h.CreateTransaction("Add Button")
        '    'button = DirectCast(h.CreateComponent(GetType(Windows.Forms.Button)), Windows.Forms.Button)
        '    'c.OnComponentChanging(MyControl, Nothing)
        '    'MyControl.Controls.Add(button)
        '    'c.OnComponentChanged(MyControl, Nothing, Nothing, Nothing)
        '    'dt.Commit()
        'End If
    End Sub

    Public Overrides ReadOnly Property Verbs() As System.ComponentModel.Design.DesignerVerbCollection
        Get
            Dim v As New DesignerVerbCollection()

            'Verb to add buttons
            v.Add(New DesignerVerb("&Dock in Parent Container", AddressOf OnAddButton))

            Return v
        End Get
    End Property

    Private Sub OnAddButton(ByVal sender As Object, ByVal e As EventArgs)
        MyControl.Dock = DockStyle.Fill
    End Sub
End Class